home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / VEKTOR.BAS < prev    next >
BASIC Source File  |  1994-01-12  |  10KB  |  316 lines
  1. DECLARE SUB ACILIS ()
  2. DECLARE SUB CERCEVE ()
  3. DECLARE SUB TARIHSAAT ()
  4.  
  5. 'VECTORS ADDITION
  6. '
  7. '      BY
  8. '
  9. 'N E S I M  R A Z O N
  10. '
  11.  
  12.  
  13. CALL ACILIS
  14. 'CERCEVE ALT PROGRAMININ CAGRILMASI
  15. CALL TARIHSAAT
  16. TIMER ON
  17. ON TIMER(2) GOSUB 10000
  18.  
  19. 'PROGRAM BASLANGICI
  20.  
  21.  
  22. SCREEN 9
  23.  
  24.  
  25. 1 CLS
  26. CALL CERCEVE
  27. COLOR 2, 4
  28.  
  29.  
  30. 11 LOCATE 5, 3: INPUT "GIVE VECTOR A AND ANGLE : ", VECTORA, Q1
  31. LOCATE 7, 3: INPUT "GIVE VECTOR B AND ANGLE : ", VECTORB, Q2
  32. LOCATE 9, 3: INPUT "GIVE VECTOR C AND ANGLE : ", VECTORC, Q3
  33. LOCATE 11, 3: INPUT "GIVE VECTOR D AND ANGLE : ", VECTORD, Q4
  34. LOCATE 13, 3: INPUT "GIVE VECTOR E AND ANGLE : ", VECTORE, Q5
  35. LOCATE 15, 3: INPUT "GIVE VECTOR F AND ANGLE : ", VECTORF, Q6
  36. LOCATE 17, 3: INPUT "GIVE VECTOR G AND ANGLE : ", VECTORG, Q7
  37.  
  38.  
  39. '----------------------
  40. CONST PI = 3.141593
  41. A1 = Q1 * PI / 180
  42. A2 = Q2 * PI / 180
  43. A3 = Q3 * PI / 180
  44. A4 = Q4 * PI / 180
  45. A5 = Q5 * PI / 180
  46. A6 = Q6 * PI / 180
  47. A7 = Q7 * PI / 180
  48.  
  49. '----------------------
  50.  
  51. AX = VECTORA * COS(A1)
  52. AY = VECTORA * SIN(A1)
  53.  
  54. BX = VECTORB * COS(A2)
  55. BY = VECTORB * SIN(A2)
  56.  
  57. CX = VECTORC * COS(A3)
  58. CY = VECTORC * SIN(A3)
  59.  
  60. DX = VECTORD * COS(A3)
  61. DY = VECTORD * SIN(A3)
  62.  
  63. EX = VECTORE * COS(A3)
  64. EY = VECTORE * SIN(A3)
  65.  
  66. FX = VECTORF * COS(A3)
  67. FY = VECTORF * SIN(A3)
  68.  
  69. GX = VECTORG * COS(A3)
  70. GY = VECTORG * SIN(A3)
  71.  
  72.  
  73. CLS
  74. COLOR 5, 15
  75. LOCATE 1, 1: PRINT "GRAPH IS DRAWING..."
  76. LOCATE 2, 1: PRINT "RED AND BOLD LINE IS THE RESULTANT VECTOR..."
  77.  
  78.  
  79. COLOR 2, 15
  80. LINE (300, 70)-(300 + AX, 70 + AY)
  81. CIRCLE (300 + AX, 70 + AY), 5, , 2, 4, 4
  82. CIRCLE (299 + AX, 70 + AY), 5, , 2, 4, 4
  83. COLOR 4, 15
  84. LINE (300 + AX, 70 + AY)-(300 + AX + BX, 70 + AY + BY)
  85. CIRCLE (300 + AX + BX, 70 + AY + BY), 5, , 2, 4, 4
  86. CIRCLE (299 + AX + BX, 70 + AY + BY), 5, , 2, 4, 4
  87. COLOR 9, 15
  88. LINE (300 + AX + BX, 70 + AY + BY)-(300 + AX + BX + CX, 70 + AY + BY + CY)
  89. CIRCLE (300 + AX + BX + CX, 70 + AY + BY + CY), 5, , 2, 4, 4
  90. CIRCLE (299 + AX + BX + CX, 70 + AY + BY + CY), 5, , 2, 4, 4
  91. COLOR 6, 15
  92. LINE (300 + AX + BX + CX, 70 + AY + BY + CY)-(300 + AX + BX + CX + DX, 70 + AY + BY + CY + DY)
  93. CIRCLE (300 + AX + BX + CX + DX, 70 + AY + BY + CY + DY), 5, , 2, 4, 4
  94. CIRCLE (299 + AX + BX + CX + DX, 70 + AY + BY + CY + DY), 5, , 2, 4, 4
  95. COLOR 1, 15
  96. LINE (300 + AX + BX + CX + DX, 70 + AY + BY + CY + DY)-(300 + AX + BX + CX + DX + EX, 70 + AY + BY + CY + DY + EY)
  97. CIRCLE (300 + AX + BX + CX + DX + EX, 70 + AY + BY + CY + DY + EY), 5, , 2, 4, 4
  98. CIRCLE (299 + AX + BX + CX + DX + EX, 70 + AY + BY + CY + DY + EY), 5, , 2, 4, 4
  99. COLOR 3, 15
  100. LINE (300 + AX + BX + CX + DX + EX, 70 + AY + BY + CY + DY + EY)-(300 + AX + BX + CX + DX + EX + FX, 70 + AY + BY + CY + DY + EY + FY)
  101. CIRCLE (300 + AX + BX + CX + DX + EX + FX, 70 + AY + BY + CY + DY + EY + FY), 5, , 2, 4, 4
  102. CIRCLE (299 + AX + BX + CX + DX + EX + FX, 70 + AY + BY + CY + DY + EY + FY), 5, , 2, 4, 4
  103. COLOR 5, 15
  104. LINE (300 + AX + BX + CX + DX + EX + FX, 70 + AY + BY + CY + DY + EY + FY)-(300 + AX + BX + CX + DX + EX + FX + GX, 70 + AY + BY + CY + DY + EY + FY + GY)
  105. CIRCLE (300 + AX + BX + CX + DX + EX + FX + GX, 70 + AY + BY + CY + DY + EY + FY + GY), 5, , 2, 4, 4
  106. CIRCLE (299 + AX + BX + CX + DX + EX + FX + GX, 70 + AY + BY + CY + DY + EY + FY + GY), 5, , 2, 4, 4
  107.  
  108.  
  109. 'RESULTANT VECTOR CIZIMI --KALIN BIR KIRMIZI CIZGI
  110.  
  111. LOCATE 4, 1: INPUT "PRESS ANY KEY TO SEE RESULTANT VECTOR...", A
  112.  
  113. LINE (299, 70)-(299 + AX + BX + CX + DX + EX + FX + GX, 70 + AY + BY + CY + DY + EY + FY + GY), 4
  114. LINE (298, 69)-(298 + AX + BX + CX + DX + EX + FX + GX, 69 + AY + BY + CY + DY + EY + FY + GY), 4
  115. LINE (297, 68)-(297 + AX + BX + CX + DX + EX + FX + GX, 68 + AY + BY + CY + DY + EY + FY + GY), 4
  116.  
  117.  
  118. RX = AX + BX + CX + DX + EX + FX + GX
  119. RY = AY + BY + CY + DY + EY + FY + GY
  120. R = SQR(RX ^ 2 + RY ^ 2)
  121.  
  122. COLOR 13, 15
  123. PRINT "RX="; RX; " RY="; RY; " R="; R
  124. LOCATE 1, 47: COLOR 5, 15: INPUT "DO YOU WANT TO CONTINUE (Y/N) ?", CEV$: IF CEV$ = "Y" THEN GOTO 1 ELSE GOTO 100000
  125.  
  126. 100000 SCREEN 0, 0, 0: COLOR 14, 12: CLS : LOCATE 8, 32: FOR I = 1 TO 25: PRINT "═"; : NEXT I: LOCATE 14, 32: FOR I = 1 TO 25: PRINT "═"; : NEXT I
  127.  FOR I = 8 TO 13: LOCATE I, 31: PRINT "║": NEXT I: FOR I = 8 TO 13: LOCATE I, 56: PRINT "║": NEXT I:
  128. LOCATE 8, 31: PRINT "╔": LOCATE 8, 56: PRINT "╗": LOCATE 14, 31: PRINT "╚": LOCATE 14, 56: PRINT "╝"
  129. LOCATE 10, 36: PRINT "Thanks For Using": LOCATE 12, 34: PRINT "NESÿM RAZON Products"
  130. END
  131.  
  132. 10000 LOCATE 2, 71: PRINT TIME$: RETURN
  133.  
  134.  
  135. SUB ACILIS
  136. CLS
  137.  
  138. COLOR 15, 13
  139.  
  140. PRINT "╔";
  141. FOR I = 1 TO 78
  142. PRINT "═";
  143. NEXT I
  144. PRINT "╗"
  145.  
  146. FOR I = 1 TO 22
  147. PRINT "║"
  148. NEXT I
  149.  
  150. FOR I = 2 TO 22
  151. LOCATE I, 80
  152. PRINT "║"
  153. NEXT I
  154.  
  155. PRINT "╚";
  156. FOR I = 1 TO 78
  157. PRINT "═";
  158. NEXT I
  159. PRINT "╝"
  160.  
  161. LOCATE 3, 1: PRINT "╠";
  162. FOR I = 1 TO 78
  163. PRINT "═";
  164. NEXT I
  165. PRINT "╣"
  166.  
  167. LOCATE 21, 1: PRINT "╠";
  168. FOR I = 1 TO 78
  169. PRINT "═";
  170. NEXT I
  171. PRINT "╣"
  172.  
  173. LOCATE 2, 2: COLOR 4, 4: PRINT TAB(80); : LOCATE 22, 2: COLOR 14, 4: PRINT TAB(80);
  174. LOCATE 22, 47: PRINT "PROGRAMMER : N E S ÿ M  R A Z O N"
  175. LOCATE 4, 2: COLOR 4, 1: PRINT TAB(80); : LOCATE 19, 2: COLOR 4, 1: PRINT TAB(80);
  176. LOCATE 20, 2: COLOR 4, 1: PRINT TAB(80);
  177. COLOR 12, 2: LOCATE 5, 2:
  178.               PRINT "██████████████████████████████████████████████████████████████████████████████"
  179.  LOCATE 6, 2: PRINT "██████████████████████████████████████████████████████████████████████████████"
  180.  LOCATE 7, 2: PRINT "                                                                              "
  181.  LOCATE 8, 2: PRINT "                                                                              "
  182.  LOCATE 9, 2: PRINT "  █▄        ▄█   █▀▀▀▀▀▀▀▀      ▄▀▀▀▀▀▀▀   ▀▀▀▀▀█▀▀▀▀▀     ▄▀▀▀▀▀▄     █▀▀▀▄  "
  183. LOCATE 10, 2: PRINT "  ▀█▄      ▄█▀   █             █                █         █       █    █    █ "
  184. LOCATE 11, 2: PRINT "    █▄    ▄█     █            █                 █        █         █   █  ▄▀  "
  185. LOCATE 12, 2: PRINT "     █▄  ▄█      █▀▀▀▀▀▀      █                 █        █         █   █▄█    "
  186. LOCATE 13, 2: PRINT "      █▄▄█       █             █                █         █       █    █  █   "
  187. LOCATE 14, 2: PRINT "       ██        █▄▄▄▄▄▄▄▄      ▀▄▄▄▄▄▄▄        █          ▀▄▄▄▄▄▀     █   ▀▄ "
  188. LOCATE 15, 2: PRINT "                                                                              "
  189. LOCATE 16, 2: PRINT "                                                                              "
  190. LOCATE 17, 2: PRINT "██████████████████████████████████████████████████████████████████████████████"
  191. LOCATE 18, 2: PRINT "██████████████████████████████████████████████████████████████████████████████"
  192.  
  193. PLAY "T510N1N2N3N4N5N6N7N8N9N10N9N8N7N6N5N4N3N2N1"
  194.  
  195. CLS
  196. COLOR 15, 13
  197.  
  198. PRINT "╔";
  199. FOR I = 1 TO 78
  200. PRINT "═";
  201. NEXT I
  202. PRINT "╗"
  203.  
  204. FOR I = 1 TO 22
  205. PRINT "║"
  206. NEXT I
  207.  
  208. FOR I = 2 TO 22
  209. LOCATE I, 80
  210. PRINT "║"
  211. NEXT I
  212.  
  213. PRINT "╚";
  214. FOR I = 1 TO 78
  215. PRINT "═";
  216. NEXT I
  217. PRINT "╝"
  218.  
  219. LOCATE 3, 1: PRINT "╠";
  220. FOR I = 1 TO 78
  221. PRINT "═";
  222. NEXT I
  223. PRINT "╣"
  224.  
  225. LOCATE 21, 1: PRINT "╠";
  226. FOR I = 1 TO 78
  227. PRINT "═";
  228. NEXT I
  229. PRINT "╣"
  230.  
  231. LOCATE 2, 2: COLOR 4, 4: PRINT TAB(80); : LOCATE 22, 2: COLOR 14, 4: PRINT TAB(80);
  232.  
  233. COLOR 1, 14
  234. LOCATE 5, 2: PRINT "                          ▄█████████████████████▄                              "
  235. LOCATE 6, 2: PRINT "                         ▄█  ▄▄▄▄▄▄     ▄▄▄▄▄▄  █▄                             "
  236. LOCATE 7, 2: PRINT "                        ▄█  ▀  ▄▄  ▀   ▀  ▄▄  ▀  █▄                            "
  237. LOCATE 8, 2: PRINT "                     ██▄█   ▄▀▀▄▄▀▀▄   ▄▀▀▄▄▀▀▄   █▄██                         "
  238. LOCATE 9, 2: PRINT "                    █ ▄█     ▀▀▄▄▀▀     ▀▀▄▄▀▀     █▄ █                        "
  239. LOCATE 10, 2: PRINT "                   █ ▄█              ▀█             █▄ █                       "
  240. LOCATE 11, 2: PRINT "                   ▀▄█                 █             ██                        "
  241. LOCATE 12, 2: PRINT "                    ▀█               ▄█              █▀                        "
  242. LOCATE 13, 2: PRINT "                     ▀█      ▄▄▄   ▄█    ▄▄▄        █▀                         "
  243. LOCATE 14, 2: PRINT "                      ▀█    ▀▄  ▀▄     ▄▀  ▄▀      █▀                          "
  244. LOCATE 15, 2: PRINT "                       ▀█     ▀▄  ▀▄▀▄██▄▄▀       █▀                           "
  245. LOCATE 16, 2: PRINT "                        ▀█      ▀▄    ▀████▄     █▀                            "
  246. LOCATE 17, 2: PRINT "                         ▀█       ▀▀▀▀▀  ▀▀     █▀                             "
  247. LOCATE 18, 2: PRINT "                          ▀█████████████████████▀                              "
  248. SOUND 40, 10
  249. FOR I = 1 TO 1700
  250. NEXT I
  251. END SUB
  252.  
  253. SUB CERCEVE
  254. SCREEN 8
  255.  
  256. CLS
  257. COLOR 15, 13
  258.  
  259. PRINT "╔";
  260. FOR I = 1 TO 78
  261. PRINT "═";
  262. NEXT I
  263. PRINT "╗"
  264.  
  265. FOR I = 1 TO 22
  266. PRINT "║"
  267. NEXT I
  268.  
  269. FOR I = 2 TO 22
  270. LOCATE I, 80
  271. PRINT "║"
  272. NEXT I
  273.  
  274. PRINT "╚";
  275. FOR I = 1 TO 78
  276. PRINT "═";
  277. NEXT I
  278. PRINT "╝"
  279.  
  280. LOCATE 3, 1: PRINT "╠";
  281. FOR I = 1 TO 78
  282. PRINT "═";
  283. NEXT I
  284. PRINT "╣"
  285.  
  286. LOCATE 21, 1: PRINT "╠";
  287. FOR I = 1 TO 78
  288. PRINT "═";
  289. NEXT I
  290. PRINT "╣"
  291.  
  292.  
  293. LOCATE 2, 2: COLOR 2, 1: PRINT TAB(32); : PRINT " VECTOR ADDITION                                "
  294.  
  295.  
  296. COLOR 15, 13: LOCATE 3, 40: PRINT "╦"
  297. FOR I = 4 TO 20
  298. LOCATE I, 40: PRINT "║";
  299. NEXT I
  300. LOCATE 21, 40: PRINT "╩"
  301.  
  302. LINE STEP(148, -50)-STEP(-0, 80), 3
  303. LINE (380, 91)-(560, 91), 3
  304. LOCATE 12, 60: PRINT "0"
  305. COLOR 4: LOCATE 7, 59: PRINT "^": LOCATE 12, 71: PRINT ">"
  306. END SUB
  307.  
  308. SUB TARIHSAAT
  309.  
  310.    COLOR 1, 2:
  311.    LOCATE 2, 3: PRINT DATE$:
  312.    LOCATE 2, 71: PRINT TIME$:
  313.  
  314. END SUB
  315.  
  316.